﻿Imports OMANE.Common.Model.Interfaces
Imports System.Collections.ObjectModel
Imports PTIC_GestionBDD
Imports PTIC_Util

Public Class ReferentielTablesMaintienINCINV
    Inherits ReferentielTablesTravail
    Implements IReferentieTablesINCINV


    Private m_Connection As IConnection
    Private m_ListeTraitements As ListeTraitementsBase(Of String)

    Public Sub New(ByVal InfosTables As ReadOnlyCollection(Of IInfoTableReferentiel),
                   ByVal ListeTraitements As ListeTraitementsBase(Of String))
        MyBase.New(InfosTables)
        m_ListeTraitements = ListeTraitements
    End Sub

    Private m_FactoryINCINV As TablesMaintienINCINVFactory
    Public ReadOnly Property Factory As Actuariat.ITablesMaintienINCINVFactory Implements Interfaces.IReferentieTablesINCINV.Factory
        Get
            If m_FactoryINCINV Is Nothing Then
                m_FactoryINCINV = New TablesMaintienINCINVFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV
        End Get
    End Property

    Public ReadOnly Property TraitementsFactory As Interfaces.IReferentielTablesTravailTraitements Implements Interfaces.IReferentieTablesINCINV.TraitementsFactory
        Get
            If m_FactoryINCINV Is Nothing Then
                m_FactoryINCINV = New TablesMaintienINCINVFactory(InfoTables, m_ListeTraitements)
            End If
            Return m_FactoryINCINV
        End Get
    End Property
End Class
